home *** CD-ROM | disk | FTP | other *** search
- /*$VER: DzA_HtM (01.03.1998) CopyRight DzA©
- */
- Options failat 21;NL='0a'x;IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN;DO;IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN;DO;SAY 'Cant Find <RexxReqtools.library> Please Install...=(';EXIT(10);END;END;stcommand:;call rtezrequest("Welcome to HtM...","HtM","DzA",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext');acommand:;aa=ab;file=rtfilerequest('Ram:',,"Choose File(s) for HtM",,"rt_reqpos=reqpos_centerscr rtfi_flags = freqf_patgad|freqf_selectdirs|freqf_selectdirs|freqf_multiselect rtfi_matchpat=#?");if file='' then call errcommand;bcommand:;aa=ac;dir=rtfilerequest('Ram:',,"Path and NaME for HtM",,"rt_reqpos=reqpos_centerscr rtfi_flags = freqf_save");if dir='' then call errcommand;ldir=left(dir,9);if ldir='Ram Disk:' then dir= delstr(dir,4,5);ccommand:;aa=ad;nfile=rtgetstring("",,"EnteR IndeX NamE","HtM");if nfile=="" then;call rtezrequest("You Entered Nothing!","Hmm","HtM");if nfile='' then call errcommand;xncommand:;rfile=left(file,9);if rfile='Ram Disk:' then call xcommand;call time 'R';address command;do i=1 to rtresult.count;if rtresult.count>50 then call ncommand;say open('xx',dir'.htm','W');say writeln('xx','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile'</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile'</h2></center><p>');do i=1 to rtresult.count;say writeln('xx','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xx','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;ncommand:;address command;say open('xx',dir'.htm','W');say writeln('xx','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile'</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile'</h2></center><p>');do i=1 to 50;say writeln('xx','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xx','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.2.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresulti.count>50 then call n2command;call timecommand;n2command:;say open('xb',dir'.2.htm','W');say writeln('xb','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 2</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 2</h2></center><p>');if rtresult.count<100 then call l1command;do i=51 to 100;say writeln('xb','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xb','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.3.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>100 then call n3command;call timecommand;l1command:;do i=51 to rtresult.count;say writeln('xb','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xb','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n3command:;say open('xc',dir'.3.htm','W');say writeln('xc','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 3</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 3</h2></center><p>');if rtresult.count<150 then call l2command;do i=101 to 150;say writeln('xc','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xc','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.4.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>150 then call n4command;call timecommand;l2command:;do i=101 to rtresult.count;say writeln('xc','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xc','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n4command:;say open('xd',dir'.4.htm','W');say writeln('xd','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 4</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 4</h2></center><p>');if rtresult.count<200 then call l3command;do i=151 to 200;say writeln('xd','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xd','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.5.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>200 then call n5command;call timecommand;l3command:;do i=151 to rtresult.count;say writeln('xd','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xd','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n5command:;say open('xe',dir'.5.htm','W');say writeln('xe','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 5</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 5</h2></center><p>');if rtresult.count<250 then call l4command;do i=201 to 250;say writeln('xe','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xe','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.6.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>250 then call n6command;call timecommand;l4command:;do i=201 to rtresult.count;say writeln('xe','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xe','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n6command:;say open('xf',dir'.6.htm','W');say writeln('xf','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 6</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 6</h2></center><p>');if rtresult.count<300 then call l5command;do i=251 to 300;say writeln('xf','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xf','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.7.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>300 then call n7command;call timecommand;l5command:;do i=251 to rtresult.count;say writeln('xf','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xf','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n7command:;say open('xg',dir'.7.htm','W');say writeln('xg','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 7</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 7</h2></center><p>');if rtresult.count<350 then call l6command;do i=301 to 350;say writeln('xg','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xg','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.8.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>350 then call n8command;call timecommand;l6command:;do i=301 to rtresult.count;say writeln('xg','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xg','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n8command:;say open('xh',dir'.8.htm','W');say writeln('xh','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 8</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 8</h2></center><p>');if rtresult.count<400 then call l7command;do i=351 to 400;say writeln('xh','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xh','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.9.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>400 then call n9command;call timecommand;l7command:;do i=351 to rtresult.count;say writeln('xh','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xh','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n9command:;say open('xi',dir'.9.htm','W');say writeln('xi','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 9</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 9</h2></center><p>');if rtresult.count<450 then call l8command;do i=401 to 450;say writeln('xi','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xi','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.10.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>450 then call n10command;call timecommand;l8command:;do i=401 to rtresult.count;say writeln('xi','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xi','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n10command:;say open('xj',dir'.10.htm','W');say writeln('xj','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 10</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 10</h2></center><p>');if rtresult.count<500 then call l9command;do i=451 to 500;say writeln('xj','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xj','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.11.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>500 then call n11command;call timecommand;l9command:;do i=451 to rtresult.count;say writeln('xj','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xj','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n11command:;say open('xk',dir'.11.htm','W');say writeln('xk','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 11</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 11</h2></center><p>');if rtresult.count<550 then call l10command;do i=501 to 550;say writeln('xk','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xk','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="/'dir'.12.htm">NexT PagE</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');if rtresult.count>550 then call n12command;call timecommand;l10command:;do i=501 to rtresult.count;say writeln('xk','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xk','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;n12command:;if rtresult.count>600 then call zzcommand;say open('xm',dir'.12.htm','W');say writeln('xm','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile' 12</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile' - 12</h2></center><p>');do i=551 to rtresult.count;say writeln('xm','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xm','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;xcommand:;call time 'R';address command;say open('xx',dir'.htm','W');say writeln('xx','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile'</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile'</h2></center><p>');do i=1 to rtresult.count;rtresult.i= delstr(rtresult.i,4,5);say open('xx',dir,'W');say writeln('xx','<a href="/'rtresult.i'"><center><img src="/'rtresult.i'" width=50 height=50 border=0"></a>');end;say writeln('xx','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;timecommand:;call rtezrequest("Time Taken" time('E') "secs.","_WoW","DzA",'rt_reqpos=reqpos_centerscr');if rtresult==0 then exit;zzcommand:;call rtfreefilebuffer();call rtezrequest("Hmm... SoRRy OnLy 600 FiLeS ...","_Oops","DzA",'rt_reqpos=reqpos_centerscr');if rtresult==0 then exit;errcommand:;call rtfreefilebuffer();call rtezrequest("Hmm... Don't Think So...","_Oops|_Cancel","DzA",'rt_reqpos=reqpos_centerscr');if rtresult==0 then exit;select;when aa=ad then call ccommand;when aa=ab then call acommand;when aa=ac then call bcommand;otherwise;end;exit
